/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Music / C / CD Playthrough 1.5.sit / CD Playthrough 1.5 / Source / SoundIn.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 53 6f 75 6e 64 49 | 6e 2e 63 00 00 00 00 00 |..SoundI|n.c.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 04 ef 00 | 00 01 7e f8 3b 3e 8f f8 |........|..~.;>..|
|00000060| 3b 3e 8f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |;>......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 41 1f 00 00 |........|....A...|
|00000080| 2f 2f 09 43 44 20 50 6c | 61 79 74 68 72 6f 75 67 |//.CD Pl|aythroug|
|00000090| 68 0d 2f 2f 09 56 65 72 | 73 69 6f 6e 3a 20 31 2e |h.//.Ver|sion: 1.|
|000000a0| 35 20 3c 4f 63 74 6f 62 | 65 72 20 33 2c 20 31 39 |5 <Octob|er 3, 19|
|000000b0| 39 34 3e 0d 2f 2f 09 28 | 63 29 09 31 39 39 34 20 |94>.//.(|c).1994 |
|000000c0| 6e 65 67 2e 61 63 74 69 | 76 65 2e 70 72 6f 64 75 |neg.acti|ve.produ|
|000000d0| 63 74 69 6f 6e 73 2c 20 | 6a 77 61 6e 67 40 63 73 |ctions, |jwang@cs|
|000000e0| 75 61 2e 62 65 72 6b 65 | 6c 65 79 2e 65 64 75 20 |ua.berke|ley.edu |
|000000f0| 3c 4a 61 6d 65 73 09 57 | 61 6e 67 3e 20 20 0d 2f |<James.W|ang>  ./|
|00000100| 2f 09 66 74 70 3a 2f 2f | 66 74 70 2e 63 73 75 61 |/.ftp://|ftp.csua|
|00000110| 2e 62 65 72 6b 65 6c 65 | 79 2e 65 64 75 2f 70 75 |.berkele|y.edu/pu|
|00000120| 62 2f 6a 77 61 6e 67 2f | 63 6f 6f 6c 2f 63 64 2d |b/jwang/|cool/cd-|
|00000130| 70 6c 61 79 74 68 72 6f | 75 67 68 2d 31 35 2e 68 |playthro|ugh-15.h|
|00000140| 71 78 0d 0d 2f 2f 09 46 | 69 6c 65 3a 09 09 09 53 |qx..//.F|ile:...S|
|00000150| 6f 75 6e 64 49 6e 2e 63 | 0d 2f 2f 0d 2f 2f 09 43 |oundIn.c|.//.//.C|
|00000160| 6f 6e 74 61 69 6e 73 3a | 09 09 53 6f 75 6e 64 20 |ontains:|..Sound |
|00000170| 69 6e 70 75 74 20 73 75 | 62 2d 72 6f 75 74 69 6e |input su|b-routin|
|00000180| 65 73 0d 2f 2f 0d 2f 2f | 09 57 72 69 74 74 65 6e |es.//.//|.Written|
|00000190| 20 62 79 3a 09 09 47 61 | 72 79 20 41 6e 77 79 6c | by:..Ga|ry Anwyl|
|000001a0| 2c 20 4a 61 6d 65 73 20 | 57 61 6e 67 0d 2f 2f 0d |, James |Wang.//.|
|000001b0| 2f 2f 09 44 65 73 63 72 | 69 70 74 69 6f 6e 3a 09 |//.Descr|iption:.|
|000001c0| 4f 70 65 6e 73 20 74 68 | 65 20 64 65 66 61 75 6c |Opens th|e defaul|
|000001d0| 74 20 69 6e 70 75 74 20 | 64 65 76 69 63 65 20 28 |t input |device (|
|000001e0| 30 29 2c 20 67 65 74 73 | 20 61 6e 64 20 73 65 74 |0), gets| and set|
|000001f0| 73 0d 2f 2f 09 09 09 09 | 09 62 6f 74 68 20 74 68 |s.//....|.both th|
|00000200| 65 20 69 6e 70 75 74 20 | 73 6f 75 72 63 65 20 28 |e input |source (|
|00000210| 27 73 6f 75 72 27 29 20 | 61 6e 64 20 70 6c 61 79 |'sour') |and play|
|00000220| 74 68 72 6f 75 67 68 20 | 28 27 70 6c 74 68 27 29 |through |('plth')|
|00000230| 0d 2f 2f 09 09 09 09 09 | 6f 70 74 69 6f 6e 73 20 |.//.....|options |
|00000240| 76 69 61 20 73 74 61 6e | 64 61 72 64 20 69 6e 66 |via stan|dard inf|
|00000250| 6f 72 6d 61 74 69 6f 6e | 20 73 65 6c 65 63 74 6f |ormation| selecto|
|00000260| 72 73 2e 0d 0d 0d 23 69 | 6e 63 6c 75 64 65 20 22 |rs....#i|nclude "|
|00000270| 6d 61 69 6e 2e 68 22 0d | 0d 0d 76 6f 69 64 20 67 |main.h".|..void g|
|00000280| 65 74 5f 73 6f 75 6e 64 | 5f 69 6e 28 53 6f 75 6e |et_sound|_in(Soun|
|00000290| 64 53 65 74 74 69 6e 67 | 20 2a 6d 79 53 6e 64 29 |dSetting| *mySnd)|
|000002a0| 0d 7b 0d 09 6c 6f 6e 67 | 09 73 69 52 65 66 4e 75 |.{..long|.siRefNu|
|000002b0| 6d 3b 0d 09 4f 53 45 72 | 72 09 65 72 72 3b 0d 0d |m;..OSEr|r.err;..|
|000002c0| 09 65 72 72 20 3d 20 53 | 50 42 4f 70 65 6e 44 65 |.err = S|PBOpenDe|
|000002d0| 76 69 63 65 28 30 2c 20 | 73 69 52 65 61 64 50 65 |vice(0, |siReadPe|
|000002e0| 72 6d 69 73 73 69 6f 6e | 2c 20 26 73 69 52 65 66 |rmission|, &siRef|
|000002f0| 4e 75 6d 29 3b 0d 09 69 | 66 20 28 65 72 72 29 20 |Num);..i|f (err) |
|00000300| 73 74 6f 70 5f 61 6c 65 | 72 74 28 73 69 52 65 61 |stop_ale|rt(siRea|
|00000310| 64 44 65 76 46 61 69 6c | 65 64 29 3b 0d 09 65 72 |dDevFail|ed);..er|
|00000320| 72 20 3d 20 53 50 42 47 | 65 74 44 65 76 69 63 65 |r = SPBG|etDevice|
|00000330| 49 6e 66 6f 28 73 69 52 | 65 66 4e 75 6d 2c 20 27 |Info(siR|efNum, '|
|00000340| 70 6c 74 68 27 2c 20 28 | 50 74 72 29 20 26 28 6d |plth', (|Ptr) &(m|
|00000350| 79 53 6e 64 2d 3e 73 69 | 43 75 72 72 50 6c 74 68 |ySnd->si|CurrPlth|
|00000360| 29 29 3b 0d 09 65 72 72 | 20 3d 20 53 50 42 47 65 |));..err| = SPBGe|
|00000370| 74 44 65 76 69 63 65 49 | 6e 66 6f 28 73 69 52 65 |tDeviceI|nfo(siRe|
|00000380| 66 4e 75 6d 2c 20 27 73 | 6f 75 72 27 2c 20 28 50 |fNum, 's|our', (P|
|00000390| 74 72 29 20 26 28 6d 79 | 53 6e 64 2d 3e 73 69 43 |tr) &(my|Snd->siC|
|000003a0| 75 72 72 53 6f 75 72 29 | 29 3b 0d 09 69 66 20 28 |urrSour)|);..if (|
|000003b0| 65 72 72 29 20 73 74 6f | 70 5f 61 6c 65 72 74 28 |err) sto|p_alert(|
|000003c0| 73 69 47 65 74 44 65 76 | 49 6e 66 6f 46 61 69 6c |siGetDev|InfoFail|
|000003d0| 65 64 29 3b 0d 0d 09 53 | 50 42 43 6c 6f 73 65 44 |ed);...S|PBCloseD|
|000003e0| 65 76 69 63 65 28 73 69 | 52 65 66 4e 75 6d 29 3b |evice(si|RefNum);|
|000003f0| 0d 7d 0d 0d 76 6f 69 64 | 20 73 65 74 5f 73 6f 75 |.}..void| set_sou|
|00000400| 6e 64 5f 69 6e 28 53 6f | 75 6e 64 53 65 74 74 69 |nd_in(So|undSetti|
|00000410| 6e 67 20 2a 6d 79 53 6e | 64 29 0d 7b 0d 09 6c 6f |ng *mySn|d).{..lo|
|00000420| 6e 67 09 73 69 52 65 66 | 4e 75 6d 3b 0d 09 4f 53 |ng.siRef|Num;..OS|
|00000430| 45 72 72 09 65 72 72 3b | 0d 0d 09 65 72 72 20 3d |Err.err;|...err =|
|00000440| 20 53 50 42 4f 70 65 6e | 44 65 76 69 63 65 28 30 | SPBOpen|Device(0|
|00000450| 2c 20 73 69 57 72 69 74 | 65 50 65 72 6d 69 73 73 |, siWrit|ePermiss|
|00000460| 69 6f 6e 2c 20 26 73 69 | 52 65 66 4e 75 6d 29 3b |ion, &si|RefNum);|
|00000470| 0d 09 69 66 20 28 65 72 | 72 29 20 73 74 6f 70 5f |..if (er|r) stop_|
|00000480| 61 6c 65 72 74 28 73 69 | 57 72 69 74 65 44 65 76 |alert(si|WriteDev|
|00000490| 46 61 69 6c 65 64 29 3b | 0d 09 65 72 72 20 3d 20 |Failed);|..err = |
|000004a0| 53 50 42 53 65 74 44 65 | 76 69 63 65 49 6e 66 6f |SPBSetDe|viceInfo|
|000004b0| 28 73 69 52 65 66 4e 75 | 6d 2c 20 27 70 6c 74 68 |(siRefNu|m, 'plth|
|000004c0| 27 2c 20 28 50 74 72 29 | 20 26 28 6d 79 53 6e 64 |', (Ptr)| &(mySnd|
|000004d0| 2d 3e 73 69 57 61 6e 74 | 50 6c 74 68 29 29 3b 0d |->siWant|Plth));.|
|000004e0| 09 65 72 72 20 3d 20 53 | 50 42 53 65 74 44 65 76 |.err = S|PBSetDev|
|000004f0| 69 63 65 49 6e 66 6f 28 | 73 69 52 65 66 4e 75 6d |iceInfo(|siRefNum|
|00000500| 2c 20 27 73 6f 75 72 27 | 2c 20 28 50 74 72 29 20 |, 'sour'|, (Ptr) |
|00000510| 26 28 6d 79 53 6e 64 2d | 3e 73 69 57 61 6e 74 53 |&(mySnd-|>siWantS|
|00000520| 6f 75 72 29 29 3b 0d 09 | 69 66 20 28 65 72 72 29 |our));..|if (err)|
|00000530| 20 73 74 6f 70 5f 61 6c | 65 72 74 28 73 69 53 65 | stop_al|ert(siSe|
|00000540| 74 44 65 76 49 6e 66 6f | 46 61 69 6c 65 64 29 3b |tDevInfo|Failed);|
|00000550| 0d 0d 09 53 50 42 43 6c | 6f 73 65 44 65 76 69 63 |...SPBCl|oseDevic|
|00000560| 65 28 73 69 52 65 66 4e | 75 6d 29 3b 0d 7d 0d 00 |e(siRefN|um);.}..|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000590| ff c0 5c 02 01 08 2e 2e | 54 12 28 6e 00 08 55 7a |..\.....|T.(n..Uz|
|000005a0| 5f 76 5f 12 2d 40 ff fc | 76 5b 57 2f 50 12 02 02 |_v_.-@..|v[W/P...|
|000005b0| 09 53 6f 75 6e 64 49 6e | 2e 63 02 00 00 00 54 45 |.SoundIn|.c....TE|
|000005c0| 58 54 41 4c 46 41 01 00 | 00 68 00 00 00 00 00 03 |XTALFA..|.h......|
|000005d0| 00 00 54 45 58 54 41 4c | 46 41 01 00 00 68 00 00 |..TEXTAL|FA...h..|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 aa ac fb d2 00 00 | 04 ef 00 00 01 7e 5f 58 |........|.....~_X|
|00000600| 13 31 7c 0b ea 00 0c 59 | 5f 02 a0 49 60 40 da 5b |.1|....Y|_..I`@.[|
|00000610| 12 67 22 4a ae 5b 14 67 | 1a 70 03 2f 00 20 6e 5b |.g"J.[.g|.p./. n[|
|00000620| 14 2f 08 20 50 20 50 22 | 68 16 00 14 4e 91 70 00 |./. P P"|h...N.p.|
|00000630| 50 8f 60 02 70 00 da 5f | a5 59 5f 01 a0 49 50 12 |P.`.p.._|.Y_..IP.|
|00000640| 02 1a 4a 80 b0 55 01 60 | 0e 57 2f 50 11 02 0a b7 |..J..U.`|.W/P....|
|00000650| 5b 67 73 02 10 80 ff b8 | 2e 4b 55 2e 4b 2e 11 ff |[gs.....|.KU.K...|
|00000660| c4 5c 01 03 18 24 55 31 | 76 5b 7f 12 3c 28 00 28 |.\...$U1|v[..<(.(|
|00000670| 57 3e 50 32 67 01 67 7e | 14 20 54 26 68 00 08 48 |W>P2g.g~|. T&h..H|
|00000680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 0b |...H..Mo|naco....|
|00000690| af 9a 01 7a 9b b2 00 0b | be 48 40 82 f4 9c 03 12 |...z....|.H@.....|
|000006a0| 01 83 79 18 00 02 00 04 | 00 04 00 29 00 04 02 5b |..y.....|...)...[|
|000006b0| 02 02 00 29 00 04 02 5b | 02 02 00 0f dc b7 00 00 |...)...[|........|
|000006c0| 01 e4 00 00 01 e4 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000006d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 01 76 9a 98 |...L...L|...2.v..|
|000006e0| 15 4e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.N.....2|..MPSR..|
|000006f0| 00 0a 03 ed ff ff 00 00 | 00 00 01 7a e7 08 00 00 |........|...z....|
+--------+-------------------------+-------------------------+--------+--------+